1700 PRINT
1710 INPUT "WANT OUTPUT SENT TO PRINTER? (Y/N) ";L$
1720 IF L$<>"Y" GOTO 3990
1730 LPRINT
1740 LPRINT USING "TOTAL LAMINATE THICKNESS (IN)=##.###";H
1750 LPRINT
1760 LPRINT"   Ex(MSI)" TAB(16) "Ey(MSI)" TAB(28) "V12" TAB(40) "V21" TAB(52) "G12(MSI)"
1770 LPRINT USING "  ##.###^^^^";EX,EY,V3,V4,GX
1780 LPRINT
1790 LPRINT"THE A-MATRIX IS:"
1800 LPRINT USING " ##.###^^^^";A1;A2;A3
1810 LPRINT USING " ##.###^^^^";A2;A4;A5
1820 LPRINT USING " ##.###^^^^";A3;A5;A6
1830 LPRINT
1840 LPRINT "THE INVERTED A-MATRIX IS:"
1850 LPRINT USING " ##.###^^^^";P1;P2;P3
1860 LPRINT USING " ##.###^^^^";P2;P4;P5
1870 LPRINT USING " ##.###^^^^";P3;P5;P6
1880 LPRINT
1890 LPRINT"NORMAL FORCE IN X-DIRECTION PER INCH OF WIDTH (LB/IN)=";NX
1900 LPRINT"NORMAL FORCE IN Y-DIRECTION PER INCH OF WIDTH (LB/IN)=";NY
1910 LPRINT"SHEAR FORCE IN X-Y PLANE PER INCH OF WIDTH (LB/IN)=";NS
1920 FOR L=1 TO N
1930 LPRINT
1940 LPRINT"PLY SET NO. ";L
1950 LPRINT"ANGULAR ORIENTATION=";TH(L);"DEGREES"
1960 LPRINT"SET IS ";N1(L);"PLIES,EACH ";T(L);"IN. THICK"
1970 LPRINT"E11=";E1(L);"MSI","E22=";E2(L);"MSI"
1980 LPRINT"G12=";G(L);"MSI","V12=";V1(L)
1990 LPRINT"IN 1-DIRECTION:  ALLOWABLE STRAIN=";F1(L);"  ACTUAL STRAIN=";S1(L)
2000 LPRINT"IN 2-DIRECTION:  ALLOWABLE STRAIN=";F2(L);"  ACTUAL STRAIN=";S2(L)
2010 LPRINT"IN 1-2 PLANE:    ALLOWABLE STRAIN=";F3(L);"  ACTUAL STRAIN=";S6(L)
2020 NEXT L
2030 LPRINT
2040 LPRINT"LAMINATE STRAIN IN X-DIRECTION=";SX
2050 LPRINT"LAMINATE STRAIN IN Y-DIRECTION=";SY
2060 LPRINT"LAMINATE SHEAR STRAIN IN X=Y PLANE=";SS
2070 LPRINT
2080 LPRINT " END OF 'LAMINAT1'"
2090 LPRINT
